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i contents 
4 DECLARATIONS 
1 cd DISPATCH = Dispatch sree ta FETLRI message 
1 14 SND_STDREQ = Send a stander nformation request message 
ENDSTDREQ = zene standard informat jon request to renese system 
LY RCV. ‘pin Receive etengere nformation cree 
LKISSND_BLKING = Send a request for List locking locks 
LKISSND_BLKBY = Send a request for List of b pcredsy locks 
1 LKISSND_LOCKS = Send a rogues’ or list of all lock 
? § SENDBLKINGREQ - send request for block i"? locks to Penete system 
1 tea erg} = Send request fer blocked locks to fenete Al em 
1 SENDLOCKSREQ = Send request for all lock 7. cenete syst 
) ° tte ed} LKING = noce ve a request for sree block mie locks 
) LKISRCV_BLKBY = Receive a request for List of ‘Rocked oc 
) +4 Sear then OCKS - peceive a request for List of all locks 
) 1084 VERIFYREMLKID = Verify remote lock id 
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TITLE DISTRLKI = Distributed GETLKI 
IOEN hh dha 8 Distributed GE Loadable Code 


CORPORATION. 


DIGITAL ASSUMES NO RESPONS BI 


IBILITY 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Executive, system services and fork level code 


ABSTRACT: 
This module contains routines used to implement distributed 
GETLKI system service functions. 


ENVIRONMENT: Kernel mode, fork level, loadable code 


AUTHOR: Rod Gamache, 
MODIFIED BY: 
v03-007 mye0o0? Rod N. Gamache 22-Aug-1984 


x race condition in check for spurious wake-ups, by 
raising IPL. 


CREATION DATE: 3-Jun-1983 


v03-006 RNGOODE Rod N. Gamache 33-Aug-1984 
Lock waiting states to LKISC_WAITING code. 
v03-005 RNGOOOS Rod N. Gamache 13-Apr-1984 


Fix bug where process was waiting and pre-mature wakes 
Ae the process to continue. 


V03-004 RNGO004 Rod N. Gama 6-Mar-1984 
Return the LOCKID aS Wine REAL RID on Local copy locks. 
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v03-003 RNGOOO3 Rod N. Gamache qin r-1984 
Add REMLKID and remCSID to returns for List items. 
Save/restore R2 on call to List of locks routine. 


V03-002 RNGOOO02 Rod N. Gamache 05-Dec-1983 
Change reference to RSB reference count from longword to 
word = this reflects changes made to the Lock Manager. 


V03-001 RNGOOO1 Rod N Conache 05-Aug-1983 
A support for distributed List items (LOCKS, BLOCKEDBY 
and BLOCKING) 


Fix problem with standard information processing, must 
not hold onto the CORP message buffer for return data. 
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; .SBTTL DECLARATIONS 
; INCLUDE FILES: 


; MACROS: 


P offsets 
ster message offsets 
ster block definitions 


mon 
m 
~” 


offsets 

a structure names 

k block offsets 

definitions 

definitions 

9 sets 
tem codes 

offsets 

offsets 

onity definitions 

PSL definitions 

; RSB offsets 

; Resource numbers 

; Define virtual addresses 


PPRAARAPPAHAPHAPHAGAPOOH 
TNE Cr 


$ EQUATED SYMBOLS: 


> OWN STORAGE: 


-PSECT $$$020 


FARRAR AKER AAA AAAAEAAAARAAAARA AAA EES 


$ NOTE: The following assumption is in effect for this entire module. 


° 
SAAR AAAAAAAAAEARAAAAAAAAAAAAAAAAAAAAAAAAARARAAAAAAAEEE 


ASSUME IPLS$_SYNCH EQ IPL$_SCS 


St FOOD ODODOOOOO0O00O0000 0000000090909 0909 090909 III 
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~SBTTL LKISDISPATCH = Dispatch incoming GETLKI message 


vOL-000° Uxiso! 


go? 
; FUNCTIONAL DESCRIPTION: 


This rout tng dispatches incoming GETLKI messages to 
the appropriate routine. 


CALLING SEQUENCE: 
JSB LKISDISPATCH (called from connection manager received 
message routine) 
IPL is at IPL$_SYNCH 
INPUT PARAMETERS: 


Address of message 
CSID 


Address of PDT 
Address of CDRP (if this message needs a response) 


OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 
RO - RS destroyed 


a Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se See Ge Se SeGse Ss tes 
6 


KISDISPATCH:: 

OESPATCR CLSMSG$B_FUNC(R2), TYPE=B, PREF IX=LIMSGSK_,- 
<STDINFO,LKISRCV_STDINFO>,- ; Standard lock information 
<BLKING,LKISRCV_BLKING>,- ; List of locks blocking this lock 
<BLKBY ,LKISRCV_BLKBY>,- 3 List of locks blocked by this lock 
SLOCKS LKISACV_LOCKS> = ; List of locks on resource 


; Unrecognized function code 
BUG_CHECK LOCKMGRERR FATAL 


et st ts ot = = = 2 4 2 — — bs 2 2 — ss 2) 2 2s 2 ss _s — 
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~SBTTL LKISSND_STDREQ = Send a standard information request message 
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p++ 
; FUNCTIONAL DESCRIPTION: 
This routine handles getting standard information requests that must 
be forwarded to the master system for this lock. This system is the 
process system. 
CALLING SEQUENCE: 
BSB/JSB LKISSND_STDREQ 
IPL must be at IPL$_SYNCH 


INPUT PARAMETERS: 


R3 CSID of destination system 
R4 Address of PCB 
R8 Address of RSB 


Address of LKB 
R11 Scratch 


OUTPUT PARAMETERS: 


RO Completion code 
R11 Address of REMOTE LKI INFORMATION BLOCK or zero 


SIDE EFFECTS: 


The process will go into MWAIT until the response from the remote 
system arrives. 


IPL = ASTDEL 
R1 - R5 destroyed 


3090969 62 090909090909 INI NI NINN NIN NINIOOOOSOOD © 
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LKISSND_STDREQ: : 
3; Send a rages and wait for response. 


PAPUAN IPPON III) a tt at a a 
NO PONE ON TM OW 
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SOOOOOCOCSOSOSOSSOSOOOSOSOOOOSOOOOOOSOSOSOOSOOOSOSOSOOSOOOOOOOOOOOOOOOOOOOOO 


SOO NA NEW § OOO NAME WIN O ODNAUE Wil 


58 4 CLRL 3; Zero remote lock block address 
608 8F C MOVZWL AL IMSGSK STDINFO_LEN,R1 : Get size of return info 
*h000 0 03 oF 8 JSB 6 EXE SALONONPAGED + Allocate a buffer 
0 € LBC RO,1 ;_Br on error 
ASSUME FKBS$B TYPE EQ FKBS$W_S Sak? 
0013004 8F pO OVL #<DYNSC £ BUF AgpTE> ‘LIA SG$K_STDINFO_LEN,- 
08 A FKBSW A “ptore, size and type 
5B. SCS VL att : atte buffer eadrees 
FFDI' BSBW CNXSALLOC_WARMCDRP ; oc. o con with RSPID and cvt CSID 
37 50 :=COC BLBC ay 90 3 No CDRP : or CSID error 
38 AS B pp MOVL R { CORPS$L_VAL4(R5) 3; Save address of system buffer in CDRP 
68 00°8F A MOVZBL 4#SS$ WO ay (R11) ; Assume su cess zero completion word 
Ad 0 MOVL pcast P (R4) > Save PID DRP 
A CORP c aya he) 
2c as. 5 po MOVL R9, CORPSL_VAL1(R5) ; Copy address of LKB 
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end a standard 


BSBW 
BLBS 


SENDSTDREQ : 
2(R11),508 
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Send standard request 


; Continue if transaction completed 


; Put the process into MWAIT until the response arrives. 


MOVL Hey scs. RO ; 
ASHL L$7_I 3 

ne TbEL = (SP) ; 
MOVL HIBS As CURPCB,R4 ; 
JSB ga SensRu RIT ; 


; Upon reawakening, IPL = ASTDEL; 
SETIPL GUPLS_SYNCH 
BRB 30$ 


3; Lower IPL to IPL = ASTDEL 
: Inputs: 


: R11 Address of return 
SETIPL #IPLS_ASTDEL 3 
MOVZWL (R11),R0 : 
RSB ; 
MOVZWL #SSS$_INSFMEM,RO 3 
RSB 3 


Go into MWAIT for resource RSN$_SCS 
Create a PSL on stack with IPL 

set to ASTDEL 

Get our PCB address 

Wait 


we must raise to IPL = SYNCH 


; Raise IPL = to lock out completions 
3; Make sure we have completed 


buffer 
Lower IPL, in case we raised it 


; Get status 


Return to caller 
Return error 


; Return to caller 
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-SBTTL SENDSTDREQ = Send standard information request to remote system 
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SBOOGOGOOOS0 0000 OOOO O09 69 69 69 09 09 09 09 08 SINISE AAAAAOAAOOUMIUIMIVIVNIVNIIN, 


++ 

FUNCTIONAL DESCRIPTION: 
This routine takes care of building and sending the standard lock 
information request. It also handles the fork level processing of 
the response. We are the process system; the remote system is the 
master system. SENDSTDREQ is called to send a standard lock inform- 
ation request that requires a response. 

CALLING SEQUENCE: 
BSBW SENDSTDREQ 
IPL must be at SCS fork IPL (8) 


This routine operates as a fork process so it may return 
to its caller before completing. 


INPUT PARAMETERS: 


DOONAN ENNIS OO NAUNEWINI @§ O OD NAME WWI 0 OO NIAMS UT 


WOH FSOQCOOOOSOOOOSOCOOCOCOCOOOCOOOOOOOOOOOOOOOOOOO Mma 


> > pp > > > > > > > pp PP Pe ee 


R3 CSB address of destination system 
R5 CORP address 
OUTPUT PARAMETERS: 
NONE 
; SIDE EFFECTS: 
; NONE 
ii .ENABL LSB 
SENDSTDREQ: 
MOVAB W*BLD_STDMSGR,- ; Store address of message build 
CORPSC_MSGBLD(RS) > routine 
BSBW CNXSSERD_MSG 558 ; Send the message 
MOVL SORPSLVALS(R ),R1 ; Get address of return buffer 
INCW (R1) 3; Indicate transaction complete 


BLBC RO,100$ 
; We are resumed here when the response message arrives. 


Dest. system is no longer in cluster 


; Registers contain: 

3 R Address of message buffer 
3 R CSB address 

3 RG Address of PDT 

: RS Address of CDRP 


; Request for information was successfull, wake process 


DNASE WS OOO NOUNS WN — 


WIAA AAA NAAN OD 


DISPATCH LIMSGSB_STATUS(R2) , TYPE=B, PREF IX=LIMSGSK_,- 
<RSPSUCCESS ,70$>,- 3 Success 
<RSPIVLKID, 50$>,- : Invalid lockid 


DISTRLKI 4 Fa 
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BUG_ CHECK LOCKMGRERR, FATAL 


: Invalid lock id 
MOVW #SS$_IVLOCKID,(R1) 3; Return error 


w 
o 
ww 


61 seed 
A BRB DEALC_WARMCDRP : Deallocate resources 
; Success 
2c 708: #*M<R2,R3,R5> 3 faye gresisters 


PUSHR 
ASSUME LIMSG gst MSTLKID GE FKBSW sizes 
MOVC3 ain S6 R_STDINFO LEN-LIMS 

LIMSGSL ASTLKID(R2) ,LIMSGSL CASTURD Gs : Copy the data 
POPR rah R2,R3,R5> ; Restore registers 


DEALL__WARMCDORP: 
: Deallocate CDRP (R5), message buffer (R2), and RSPID (in CDRP). 
CSB address is in R3. 


MOVZWL CDRPSL_VAL2(R5) ,R4 3; Get process index 
BSBW CNXSDEALL_WARMCORP_CSB ; Deallocate the package 


3 
18 Al 618A 
2c 


WAKE_PROCESS: 
; R4& contains process index 


MOVL G*SCHSG -PCBVEC, RO ; Get address of PCB vector 
MOVL (RO) CR4J7 ; Get address of PCB 


3; Change process state to executable 


50 wopyoue? ft 
4 6044 


52 ; No priority increment 


CLRL R2 
Boaewe AST,JSB ; Report event (use JSB G*) 


3; Destination system left the cluster 


$1 22 100$:  MOVW 2 (At) 3; Return error 

0 OVL 3; Get address of CDRP 

54 30 rs MOVZWL ci VAL2(R5) ,R4 : Get process index 

00000000 ' GF JSB G*EXE DEA EANO N PAGED : Deallocate the CDRP 
d9 BRB WAKE_P 3; And wake process 
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51 ' 
a1 
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Build standard information request message action routine 
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; Action routine to build the actual request message 


:; Inputs 
4 


re: 
Address of message buffer 
Address of CDRP 


: ALL resteters except RO and R1 must be preserved 


BLD_STDMSGR: 


ASSUME 
ASSUME 


MOVW 


st PRCLKID EQ LIMSGSL_MSTLKID+4 
B_FUNC EQ CLSMSG$B_FACILITY+1 
uncti 


aes STDINFO@8- e f on and facility codes 
RSCSR fac Vnb cusnsebe. FACILITY (R2) 
(R5 : Get LKB address 
shel eee} R1 ; Beint into mepsepe | buffer 
L REALKID(ROS CAND ; Store master loc 
KID(RO),(R ; Store process cckid 
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-SBTTL LKISRCV_STDINFO = Receive standard information request 


‘_ 


DISTRLKI - Dis 
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$e 
FUNCTIONAL DESCRIPTION: 
This routine recetyes conversion requests from the remote system. 
The remote Syaten s the process system and we are the master 
system for this lock. The conversion request is performed and 
a responses message is returned if called at entry point 
LKISRCV_STOREQ. 
CALLING SEQUENCE: 
JSB LKISRCV_STDREQ (called from CNX received message routine) 
IPL must be at IPLS_SYNCH 
INPUT PARAMETERS: 


R Address of message buffer 
f CSB 


MMMM MMMMMIrncrirnicrirrrrirricricricvicy® § 


PAEAEAPAEAPAAA AAAS IAOASISISIISASISAIS YC 


& Address o 
K Address of CDRP 


OUTPUT PARAMETERS: 
None 

SIDE EFFECTS: 
A message is sent back as a response 
RO - R5 destroyed 


ASSUME LIMSGSL_PRCLKID EQ LIMSGSL_MSTLKID+4 


LKISRCV_STDINFO:: 
PUSHR #*M<R2,R3,R6,R7,RB> 


10 
1] 
18 
14 
1? 
i 
19 

PUSHL R2 ; Save mogsage buffer address 

BSBW EEXSINET CORP : Initialize CDRP 

3 

5 

: 

; 

§ 

4 

5 

$ 

5 
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; Point R7 into message buffer 

; Get master lockid (id on this system) 
; Get process lockid A verify) 

; Assume error on lock id 


P ; Restore message buffer address 
ADDL3 PL INSESS LASTLRID.R2.A7 f 
M (R7)+,R 


ooo—-oo"o 
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chaper VAL 
BSBu VERIERERLE ; Convert to LKB address 
RO,STD_IVLKID : Invalid lock id 


; Have LKB address in R6, pointer into message in R7. Set 
3; up other registers as needed. 


MOVL LKBSL_RSB(R6) ,RB ; Get RSB address 
; Send response message. CDRP address is in R5. 
MOVB #LIMSGSK_RSPSUCCESS,- ; Store status indicator 


(R7)+,RO 
MOVE #LIMSGSK RSPIYLKID,~ 
i. 
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3c AS CDRPSL_VALS(R5) 

2c aS 6 v0 “e hee R6,CORPSL_VAL1 a" St LKB add 
$ r 
Otc A POPR pie Ay RG.R?, si hap be 
AF E MOVAB 3 store 8 address of message build 

4C¢ RK | BoRP r° ToasP (RS 3 rout 
53 4C A a 8 MOVL tts CSIO(RS),_R 3; Get (SID out of CSB 

FEDE BSBW = CNXSSEND_MSG "aESP ; Send message response 


; Return here only on errors 
CMPW RO, #SS$_NOSUCHNODE 
BEQL «=s«108 


Yes, err 
MOVL R5,R0 ; No. *s$$ "NODELEAVE is okay 
JMP G*EXESDEANONPAGED + Deallocate CDRP 


0S: BUG_ CHECK LOCKMGRERR, FATAL; CSID invalid 


1 
BLD_ STDRSP: 
: This routine builds a response message for conversion requests 


: Input 
: - ‘t Address of message buffer 

: Address gt CDRP 

3; ALL ventesess except RO and R1 must be preserved 

ASSUME CLSMSGSB_FUNC EQ CLSMSGSB_FACILITY+1 

MOVW Mm 1eseee STDINE 0a8- ; Store function and facility codes 


'CLSMSGSK "FAC Kl, {CLSMSGSB FACILITY(R2) 


Is aserus Aes  NOSUCHNODE? 


0000 ' 8F 63 i 


00006000" éF 


08 A2 40185 8F 80 
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36 AS 90 MOVB atts Hutte ; Store response status 
0 A2 IMSG = STATUS Ra) 
OLSPATEE “LIMSG$B_STATUS(R2), TYPE=B, PREF IX=LIMSGSK_, 
<RSPSUCCESS $>,- 3; Suc 
<RSPIVLKID, ,40$>,- ? Invalid lockid 
BUG_CHECK LOCKMGRERR, FATAL 
50 § AS OD 5$: MOVL CORPSL va. | COS) RO ; Get address of LKB 
A D MOVL Lk Kes, CKID(RO),= : Store master lockid 
18 A Gs MSTLKI6(R2) 
54 A dO MOVL REMLKID(RO) 3 Store process lockid 
iC A LeRaL  PRELRID (RS) 
ASSUME LKBSB_GRMODE EQ LKB$B_RQMODE+1 
ASSUME LKBSB_ STATE EQ LKBSB_GRMODE+1 
SA b0 MOVL LKB$B_GRMODE (RO) ,- 3; Get state information 
4A beets STATE(R2S 
6A ? TSTB BS$B_STATE(RO) : $ state infornet ton okay? 
g BGEQ 3 yes, cont 
FF BF MOVB PAIS¢ VA TING,=- 3 or map all waiting states 
26 A2 wa LIMSGSC_STATE+2(R2 + to same code 
51 38 AO 0 MOVL LKBSL_RSB(RO) RI 3; Get RSB a 4 
Al 7D MOVG $RSBSG~VALBLK(A1),- : Get vArBEK’ information 
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Limscsa VALBLK (RG) 

MOVQ $B$0 g VAL SLR +8(R1),- ; Get rest of VALBLK information 
LINSG8Q VAL LKs B(R2) 

MOVZWL REY CH 

Pinsese ERSBREF CNT (R2) 


3; Calculate the LOCK COUNT on the RSB 


Init count 

Save registers 

Get ogerese of women queue Listhead 
; pave tistt® * glarecs 


3; Get sub-RSB reference count 


MOVAB Rss. srr. R3 
iy RG 


— 
Oo 
9 
mee 
v 
cr 


ane 


NOUS WM OOD NAUES UN" OUOO~n 
wv 
ij 
wn 
= 
z= 


w 
Ww 
vw 
er 
— MNP ww 
oe 
—UIMNOAUNOOP >>>>>P 
WO FWONWW-" WO Rr 
4, > Aare + tyne + + 4 4 ww 
WP O—-OOW—OMD & o go 
—> —) —) —) 8) 2 8 2 8 sd 2 = a <9 
OOO ODOODOOO VN 
ceensmeet at senses ine teed = “no 
PUP PPPS SSSI E™ S™ >a 


1 INCL 3 Seale count 
53 1 MOVL fr »,R3 ; Move down List 
1 BRB 1 Look for more 
2C A2 14 208: MOVL R LEgSESL -LCKCOUNT(R2); Return the Lock Count 
1 POPR #ARCR ; Restore registers 
! 40$: RSB 


oats i 


o7 
oo 
cc 
nee 


I 11 
ING’: Senda request for List ‘S-sepai9ee Gasd9sts FeveLOA.snedbrsemies.mans1 2% U3, 
~SBTTL LELSSND BLKING = Send a request for ist gf plock ing Locks 


«SBTTL LKISSND-BLKBY = Send a request for List o ockedby locks 
-SBTTL LK SND-LOCKS - Send a request for list of all locks 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine handles getting a list of locks blocking/blocked by/ 
associated with the given lock. The given lock must be valid. 


CALLING SEQUENCE: 
8SB/JSB LKI$S 
8SB8/JSB LKISSND_BLKB 
BSB/JSB LKISSND_LOCKS 
IPL must be at IPLS_SYNCH 
INPUT PARAMETERS: 
R3 CSID of destination system 
R4 Address of system buffer to receive information 
R Size of user's return buffer 
R Address of = 
: R10 Address of length longword for return + scratch longword 
; OUTPUT PARAMETERS: 
RO Completion code 


; SIDE EFFECTS: 


0 BUR INS 


See Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Se Ses 


The process will go into MWAIT until the response from the remote 
system arrives. 


IPL = ASTDEL 
R1 - R3, RS destroyed 


Sete Ge Ge Se Sete tes 


-ENABL LSB 
LKISSND_BLKING: : 
MOVAB 
BRB 
LKISSND_BLKBY:: 
MOVAB W*SENDBLKBYREQ, (R10) ; Store address of action routine 
BRB 10$ 3; Join common code 
LKISSND_LOCKS:: 
VAB 


6A e206" ¢r 9 Y ZENOOLKINGRER. (R10) ; Store address of action routine 


Join common code 


DAMM SEIN OOOOOOOOWOIOAIOOOOOOIMOOOOOOOOOOAAOOOOAOOAMAOOOOA 


6A sec" te 9 


6A O216°CF GE W*SENDLOCKSREQ, (R10) 3; Store address of action routine 


ae er ae er er er er er ee i i ane a a ne a a a ae ae a a a a a ae a a a a ae ee ae a ae Pe ae Pe ae Dae ae ae ae ae ae ae ae ae ee ee Pe he er ee er 
_ 
So 
bed 
wn 
=x 
f= 


Neon 
SANNA AAA AAA AAD MAO ES Be BS BS BS SB IAAI AIA AIA AI OPPO — 


PHI OOD NA NEW OS OOD NA UNE WIN SO OO NA NEW SO OOD NAME WO OONAUE U0 


56 RS 3; Save system buffer address 
FE4C’ BSBW CNX BALES UARACORP 3; Alloc. a CORP with RSPID and cvt CSID 
48 2 E BLBC RO, 0 : No CDRPs or CSID error 
3¢ AS D MOVL R4, CORPSL_VAL5(R5) 3; Save system buffer address 


pete KI 


| a | 
x 
—Oo 
fb As. 
nw 
ae 
co 
~~ 
-o 
oc 


fed SETLKS Loadable code 11 1g-SEp-198 00:42:27 YAK/UMS Macro yOK-O0 Page 14 


50 00000000'GF 4 MOVL gr ecisat Guan Ce .RO 3; Get our PCB address 
i Dd MOVL ces cP Ae . : 3; Save PID in CORP 
4S A 2 D MOVL RS EDRPL vaca) 3; Copy address of LKB 
8A AD MOVL R 6 CORPSC_VAL4(R5) ; Save Length Longword 
5 A oO MOVL (R10) RO 3; Copy address of action routine 
02 AA 9° B MOV sr asst NORMAL,2(R10)  ; Assume success 
6 8 MOVW R6, (R10) 3: Set size of return 
04 AA ? CLRW 4(R10) ; Indicate transaction not complete yet 
60 6 JSB (RO) 3 Call action routine 
19 04 AA EB BLBS 4(R10) , 508 ; Continue if transaction completed 


; Put the process into MWAIT until the response arrives. 


MOVL #RSNS_SCS,RO Go into MWAIT for resource RSN$_SCS 
ASHL #PSL IPL,=- Create a PSL on stack with IPL 
#IPL$_KSTDEL,-(SP) set to ASTDEL 

MOVL  G*SCHSGL_CURPCB,R4 Get our PCB address 

JSB G*SCHSRUAIT Wait 


; Upon reawakening, IPL = ASTDEL; we must raise to IPL = SYNCH 
SETIPL G]0v 8 Svace ; Raise IPL = to lock out completions 
BRB 30$ 


5 


7 8 
$4 ponodton:ef 90 


OD NA NEW" O OONAUE WP" O ODIO 
ww 
So 
we 


OOCCOCO 8 FFF hh HHH HMMmmmmmo COCO VC MOOOO 


PES ANON W WW WW WW O0-0-0-0--O WUMUPOPUFUNTHTIO? Dorno HED aw OED 


PIED a a tk tk kk kh a 


es 11 ? : Check that transaction is complete 
§ 50$: ; Lower IPL to IPL = ASTDEL 
6 4 : Inputs: 
? 5 3 R10 Address of length longword 
6 $ SETIPL #IPLS$_ASTDEL 3; Lower IPL, in case we raised it 
50 O02 AA 3C ° 3 MOVZWL 2(R103,R0 ; Get status return 
54 BED 219 90$: POPL RG ; Restore system buffer address 
0 2 RSB 

18 -DSABL LSB 
614 


Piste Kl LK Loadable Code " 19-3 or 1382 00:36:90 yaxcves Macro V04-00 Page 15 


nd request for blockin SEP=1 SYSLOA.SRCJDISTRLKI.MAR;1 (9) 
»SBTTL SENDBLKBYRES. - Send request ver, pteshn locks to remote system 


na 


~SBTTL SENDBLKBYREQ = Send request for cked locks to remote system 
-SBTTL SENDLOCKSREQ = Send request for all locks to remote system 


+e 
FUNCTIONAL DESCRIPTION: 


This routine takes care of building and sending the request for 
List of blocking/blocked/all locks. It also handles the fork level 
processing of the response. We are the process system; the remote 
syeten ig the master system. SENDxxxREQ is called to send an 
nformation request that requires a response. 


CALLING SEQUENCE: 


BSB/JSB SENDBLKINGREQ 
BSB/JSB SENDBLKBYREQ 
BSB/JSB SENDLOCKSREQ 


IPL must be at SCS fork IPL (8) 


This routine operates as a fork process so it may return 
to its caller before completing. 


INPUT PARAMETERS: 


Be Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Se Ge Se Se Ge Ge Ge Se Se Se Ge Se Ge Fe Se Ge Se Sete 


R3 CSB address of destination system 
RS CORP address 
OUTPUT PARAMETERS: 
NONE 
SIDE EFFECTS: 
NONE 
 ENABL LSB 
SENDBLKINGREQ: 
027D'CF MOVAB W*BLD_BLKINGMSGR,- 3; Store address of message build 
4C AS CDRPSC_MSGBLD (RSS ; routine 
OE BRB 0$ 3; Join common code 
SENDBLKBYREQ: 
0285'CF MOVAB W*BLD_BLKBYMSGR,- 3; Store address of message build 
4C AS CORPSC_MSGBLD(RS) : routine 
06 BRB 10$ ; Join common code 
SENDLOCKSREQ: 
028D'CF MOVAB W*BLD_LOCKSMSGR,- ; Store address of message build 
4C AS CDRPSC_MSGBLD(R5) ; routine 
FEQO 8F 10$: BICW3 #*C<VASM _BYTE>,- 3; Get byte offset 
C Aj CDRPS$L_VAL5S(R55 ,- ; 
4a A CORPS$W~CNXBOFF (RS) ; to start of buffer 


DISTRLKI - Distributed GETLKI Loadabl Codd 16-SEP-1984 00:32: AX/VMS Macro V04-00 P 1 
Mba obo SENDLOCKSREQ = Send request for ds lock g- SEP p=} 98¢ 90:38:95 YeySLOA. SRCIDISTRLKI.MAR;1 ou 8) 
15 09 EF 3 EXTZV ayaey ven eyA VA 5-46 VPN,- t Ge prequet page number 
50 0680000 4! dO A any ue iin t the base address of the SP 
A BE 1 MOVAL CORPS b Enxsvarré RS) ; Set address of the first "re 
38 B C 8 MOVZWL arpa VAL4(R by*N 3 Set size of system buffer 
46 A CORPSE _CNKBCN NT(RS) : 
4A A 94 8 CLRB CORPSB_CNXR Pei 3 In kernel mode. 
53. 4C AS. p MOVL CSBS$L_ESID(R3).R ; Get CSID 
ae Rave EREROSSSECAD) ms eemeze ops tanger 
yi Al 8B INCW (R1) ~ : : Indicate that transaction is complete 
1A 50 =OC BLBC RO,90$ ; Dest. system is no longer in cluster 


3; We are resumed here when the response message arrives. 
; Registers contain 


SOS DS OS OS OD OS DOP PAPA AAO OOOO Oro 


DBODOOOOO0O0 OW OOO O00 000909 090969090909 INI NINN 


-DSABL LSB 


t 
0 
| 
4 
te bbe 
4F 5 
rae 
4F 8 3 R Address of _Bassoge buffer 
4F 3 i CSB addre 
4F 0 3 RG Address r+ PDT 
rt 1 3 R5 Address of CDRP 
ri § ; Request for information was successfull, wake process 
ri 5 eiethahiaaa™ LIMSGS$B_STATUS(R2) , TYPE=B, PREF IX=LIMSGSK_,- 
GF 5 <RSPSUCCESS 70$>,- ; Succ 
4F : <RSPIVLKID, 50$>,- i Invalid lockid 
5 0 
38 701 BUG_CHECK LOCKMGRERR, FATAL 
se 408 
oe f : z Invalid lock id 
02 Al 0000'8F B80 2 $ 50$: MOVW #SS$_IVLOCKID,2(R1) ; Return error 

f 8 3 Success 

61 22 A 99 6 710 70$: MOVW LIMSG$W_LISTSIZE(R2), (R1) Set size of received message 

FE3 1 6 gi BRW DEALL_WARMCDRP ; beallocate CDRP etc. wake up process 

3 at ; Error - node is leaving the cluster 

02 Al ; 88 9 715 908: MOVW 4 hh ; Set return status 

50 § 1§ MOVL ; Get address of CDRP 
54 38 A Be p 1 MOVZWL CoP : VALS (83) sn 3; Get process index 
000000 i 6 7 1 JSB G*EXE BEA 3 Deallocate the CDRP 
FE2B 31 aA 4 BRw WAKE _P ROCESS 3; And wake process 

if 3 
7D 2 


M11 
d GETLKI Loadabl asnets Lock 19-$6b= 138% 00: 36:40 coef Macro V04-00 Page lg 


DISTRLKI = Distribute 
voae SENDLOCKSREQ = Send request SYSLOA.SRCIJDISTRLKI.MAR;1 0) 


PARA ARAAAAAAAARAAALAALAL ATLA TET TEETER TERETE ETRE E SEES ETS C TST TPT Tercera 


Build request message to get List of blocking locks 


PPAARARAAAAAAALALALALALEL LALA L LEE E TEETER EE EEE EEE TESTE E TET Cece ec ec cea) 


; gesven teu rout ine to build the actual request message 
; u 

; ° 4 ceqrese @% of pessege buffer 

: ALL soataters except aa and R1 must be preserved 


~-ENABL LSB 


ASSUME Lsnsee PRCLKID EQ LIMSGSL_MSTLKID+4 
ASSUME CLSMSGSB_FUNC EQ CLSMSG$B_FACILITY+1 


BLD_BLKINGMSGR: 
08 A2 0205 8F 80 MOVW 


: 


'W’NTO OVI ITV VTVUVVTVU9TCC0C0C0"0"0"0O wae 


#LIMSGS$K_BLKING@8- Store function and facility codes 
'CLSMSGSR_FAC_LKI, CLsmsG$e FACILITY (R2) 
BRB 10$ 3; Join common code 


BLD_BLKBYMSGR: 
08 A2 0305 8F 80 MOVW 


#LIMSG$K_BLKBYa8- fyne tion and facility codes 
06 11 


CLSMSGS$R_FAC_LKI, cusmscéa® FACILITY CR 
BRB ibs 3; Join common code 


BLD_LOCKSMSGR: 
08 A2 0405 8F B80 MOVW #LIMSG$K_LOCKS@8- e function and facility codes 


'CLSMSGSR_FAC_LKI, cusmscéa® FACILITY CR) 


a SS Se i Bn _______  p. p M p  e e e | 
DDRAXR_D_ GAS vsvss & Be Be BS BB BE ANI III III pononunny 
PWN OOO NA MEW 9 OD NAN E WIN 0 OD NOU EN OOONAOUS 


9 
5 34 ASO : 10$ MOVL CORPSL_VAL3(R5),R 3; Get LKB address 
51 52 18 Ci 029 ADDL3 #LIMSGSL_M STERION 8 Rl : Point into message buffer 
: 4A 8 98 MOVL CKBSL REALKID (ROS (R1)+ : Store master loc 
1 30a0 OD OF MOVL  LKBSL“LKID(RO),(R1)+ : Store process lockid 
8 8 80 A3 MOVW @CORPSL_VAL4(R5) ,- ; Store return buffer size 
22 A2 A LIMSGSWILISTSIZE(R2) 
05 “ RSB 
Ag DSABL LSB 
A9 


N11 
DISTRLKI - Distributed GETLKI Loadable Code 16-SEP-1984 00:32: AX/VMS Macro V04-00 2 1 oef 
YO2-000 [KISREV.BLRING = Receive a request for L ScSepayoae 02 :0075 PeNevie Bache YOKnOO un. Page (18, 
A -SBTTL LKISRCV_BLKING = Receive a request for List of blocking locks 
A : -SBTTL atte - Receive a request for ist of brocked ocks 
~SBTTL LKISRCV_LOCKS = Receive a request for list of all locks 
A p++ 
nS f : FUNCTIONAL DESCRIPTION: 
Ad : This routine handles receivin request for List of locks. 
Hy: a ; The given lock id must be a valid non=zero lock id. 
ag Ss : CALLING SEQUENCE: 
a9 a ; BSB/JSB LKISRCV_BLKING (called by the CNX received message routine) 
a o 3 BSB/JSB LKISRCV_BLKBY (called by the CNX received message routine) 
4 g ? ; BSB/JSB LKISRCV_LOCKS (called by the CNX received message routine) 
Ni} f : ; IPL must be at IPL$_SYNCH 
ny , 4 } INPUT PARAMETERS: 
a9? 6 : R Address of message buffer 
Ao 787; R Address of CSB 
| 4 3 3 R Address of CDRP 
A9 790 : OUTPUT PARAMETERS: 
a9 fo2: N" 
3 one 
0 Ag 138 3 
A9 794 ; SIDE EFFECTS: 
AQ 795; 
AG £38 3 RO - RS destroyed 
AQ 797 j-- 
Ag £8 -ENABL LSB 
Ag = 79 
~ By 3; Format of allocated buffer return information 
sh AQ 03 RCV_W_STATUS = 0 ; Return status 
sit 4 Ag 0 RCV_W_SIZE = 2 ; Return size 
44 4 Ag 4 RCV_L_BLORTN = 4 : Completion build routine 
0000008 ri 5 RCV_T_DATA = 8 ; Return data 
Ag 5 LKISRCV_BLKING: : 
ae Bt! 9E Ag 8 MOVAB W*“RCVBLKINGREQ,- ; Store address of action routine 
0 AS AD ° CDRPSL_VAL2(R55 : im CDRP 
O36B'CF 9€ AF MOVAB W*BLD BLK TORS? 3 Store address of completion routine 
4 AS B 11 FORPSE_VALS(R ) 8 in CDRP 
1A =o : \¢ BRB $ 3; Join common code 
87 14 LKISRCV_BLKBY:: 
O396'CF 9E B7 15 MOVAB W*RCVBLKBYREQ,- 3; Store address of action routine 
3 AS BB 18 CDRPSL_VAL2(R5) > in 
O373'°CF 9 BD 1 MOVAB ye BLO TASe - ; Store address of completion routine 
34 AS C 18 CDRP C_VAL3(R5S : 
oc 11 ; 1 $ 3; Join common code 
C 31 LKISRCV_LOCKS:: : 
OSAO'CF 9€ C 2 ‘ “MOVAB W*RCVLOCKSREQ,- 3; Store address of action routine 


B 12 
DISTRLKI - Distrib ETLKI Loadable Code 16-SEP-1984 00:32: AX/VMS Macro V04-00 P 9 
vore LKISRCV_L Receive a request for Li $78 Pa} 984 $:38:95 SYSLOA.SRCIJDISTRLK! .MAR;1 — dd 
osze'tr 9€ MOAB UPBLD-COCKSRSE, t store add f completi i 
- ; Store address of completion routin 
4 AS CORPSC-VALSCASS : in CDRP : : 
51 22 Ag 3 108: MOVZWL LIMSGS$W LST RIZE CRE) RI ; Get requested buffer size 
| 0 ADOL #RCV_T_BATA.R ; Make room for size field + return status 
54 62'°CF 3 MOVAB Wee ERROR ,R4 3 set address of error processing routine 
FD20° SBW CNXSPARTNER_INIT f B 3 Init partner's CS 
o7¢9 z ge PUSHR veseeces RB,RI,R10> : Save registers 
58 A : MOVZWL LIMSGS$W_LISTSIZE(R2),R8 ; Get re yested buffer size 
te Se § ADDLS #LIMSGSC_MSTLKID,R »R? : Point into mepsage buffer 
0 0 ove #LINSCSK RSPIVLKID, = ; Assume error on lock id 
SA 204 9 MOVAB RCV ay SIZE (RS) R10 ; Point R10 to Length word 
4 a5 OD MOVL  CORPSC_VAL3(R55,- 3 Save completion routine address 
4 AG RCV_L_BLDRTN(R4S 
6A H CLRW (R10) 3 Assume no data to return 
52 08 A4 MOVAB acy T_DATA(R4) ,R2 ; Point R2 to start of data area 
3 87 MOVL (R7T+>R1 3; Get master Lockid (id on this system) 
0 7 8 MOVL (R7)+,RO ; Get process lockid (for verify) 
- 3 BSBW VERIF YREMLK ; Convert to LKB address 
43 50 € BLBC RO,RCV_IVLKID : Invalid lock id 


; Have LKB address in R6, return buffer in R2. Setup other registers. 


9 28 MOVL R6,R9 ; Copy LKB address 
6 D MOVL RB,R6 3; Copy size of return data buffer 
58 50 Ao oD MOVL  LKBSL_RSB(R9) RB : Get RSB address 
0 B5 6 JSB @CORPSL_VAL2(R5) ; Call action routine 


3; Send data back to requestor 


BICW3 #*C<VASM_BYTE> R? - 
CDRP$W_CAXBOFF (RSS 
EXTZV #VASV_UPN, #VASS_VPN,- 


44 045 52 FEOO 8F AB 


Get ores offset 
15 09° EF : 


: to start of buffer 
:; Get virtual page number 
3 buffer 


PANNA AAA DN AAA HAH HAA AAAI AIA AAI AI. AAI IAI 
oS FPF PUMP) 3 2 BQO QO OCOCOO FN BMH MMMMMMMOOGOIVIINOAO 
PON FO OOWIT SA HM SNNNUNLS OOS DP PD PD PS VL M POOWMMOOLOCVOUN—— "WO 


51 93 R2,R1 3 of 
50 00000000'GF 00 MOVL sy tt et rte RO : Get the base address of the SPT 
40 A 6041 E MOVAL  (RO)CR1J;CDRPSL_CNXSVAPTE(RS) ; Set address of the first PTE 
46a5 6A 3C MOVZWL (R10) ,CORPSL CNRBCNT (RS); Set size of system buffer 
4A AS 894 CLRB  CDRP$B_CNXRMOD (RS) : In kernel mode. 
HY AS D4 CLRL CORPSL_LBO Re? ; Start at beginning of buffer 
AS 04 CLRL CORPSL_RBOFF (R5) : _on both sides 
46 AS 00 MOVL CORPSL_CNXBCNT(R5),- ; Set size of system buffer 
5 AS a a peers 
07CO 8F POPR #°M<R6,R7,RB,RI,R10> 3; Restore registers, in case of fork 
roy BSBW CNXSBLOCK_WRITE 3; Send the data 
1 VB #LIMSGSK_RSPSUCCESS.- ; Store success status indicator 
64 rt RCV_W_STATUS(R4) 
re 3; Send response message. CDRP address is in R5, allocated buffer in R4. 
04 #11 rt BRB 70$ ; Continue 
4D RCV_IVLKID: 
07CO 8F 4D #*M<R6,R7,RB.RI,R10> ; Restore registers 
g AS B80 2) 708: MOV RCV_w_SIZE(R4) ,- 3 Seve return size 
A 4 CORPSC_VAL2+2(R5) : in CDRP 


DSTRI 
Tabli 


C 12 
ETLKI Loadable Code 16- 


DISTRLKI = Distributed G SEP=1984 00:32: AX/VMS Macro V04-00 Page DSTR 
voL~000 LKISRCV_LOCKS = Receive a request for Li $7$Fb = 382 $8 :59:95 SYSLOA.SRCIJDISTRLKI.MAR;1 . (3) Vea" 
66 90 § MOVB RCV_W_STATUS(R4) ,= 3 Seve return status 
OA CORPSE VAL(RS) 3 n CORP 
4 A4 00 A MOVL RCV 5 BLORTN(R4) ,= 3 Store address of response message 
C AS D CORPSC_MSGBLD (R55 : build routine 
FC9E’ 31 F BRW CNXSPARTNER_F INISH ; Send response and close connection 
§ -DSABL LSB 
8 ; Error processing routine 
Q RCV_ERROR: : Error pogcess ing 
38 55 00 9 MOVL R5,R0 3 Copy CDRP address 
00000000'GF 1 63 3 JMP G*EXESDEANONPAGED : Deallocate the CDRP 


DISTRLKI - Distributed GETLKI Loadable Code SEP=-1984 AX/VMS Macro V04-00 Page 21 DSTR 
vO2-000 LKISRCV_LOCKS = Receive a request for Li "Ec “SEP=1 1384 88: 38; #§ YSYSLOA. SRCIDISTRLKI.MAR; 1 . B) V04- 
; a i FRARRAAAAAA AAA AA ARETE AAAAAAAAAAAAAAAAAAAAAAAREAAAAAAAAAAAEAAEAAAKEA Eee 
$ Action routines to build response messages 
68 38 ITITITIIIIITITITITITILILLILILLL LLL LLL LLL LLL LLL iti iii Titi iii ii 
8 
5 -ENABL LSB 
B ; These routines build the response messages for received requests 
8 4 :; Inputs: 
5 3 4 Address of message buffer 
B § 3 Address gt CDRP 
3 ALL venteters except RO and R1 must be preserved 
re 09 ASSUME CLSMSGSB_FUNC EQ CLSMSGS$B_FACILITY+1 
68 11 BLD_BLKINGRSP: 
08 A2 0285 8F B80 96 ! MOVW TELSASGSA. RESPRSG- ; Store function and facility codes 
71 = 914 {GE SASCSK. FAC_LKI,CLSMSG$B_FACILITY(R2) 
— 4 a BRB 3; Join common code 
7 $17 BLD_BLKBYRSP: 
08 A2 0385 8F  B0 4 313 MOVW TEL SSESR RESP RSG 3; Store function and facility codes 
79 ~=—920 i SESMSGSK. FAC_LKI,CLSMSG$B_FACILITY(R2) 
06 11 ag 4 1 BRA 10$ 3; Join common code 
78 9 : BLD_LOCKSRSP: 
08 A2 0485 BF B80 4 4 3 MOVW TEL ASeSRC RESP RSG} ; Store function and facility codes 
! 2 § 'CLSMSGSK— _FAC_LKI,CLSMSG$B_FACILITY(R2) 
0Aa5 90 rs . 8 10$: MOVB CORPSL_VAL2(R5),- ; Store response status 
A 4 3 LIMSGSB_STATUS(R2) 
A BO 8 , MOVW CORPS$L_VAL2+2(R5),- ; Store response Length 
A2 3 LIMSGS$Q_LISTSIZE(R2) 
05 8 3 RSB 
& 984 
C 3 5 -DSABL LSB 
C 936 


E 12 
d GETLKI Loadable Code 16-SEP-1984 00:32: AX/VMS Macro V04-00 Pp DSTF 
S = Receive a request for Li oe eet 1 80:38:95 SYSLOA.SRCIDISTRLKI MAR: 1 — (a8) VO4- 
FRARAAAAAA AAA AAAAAAEAAAAAAAAAAAAAARAAARAAAAAAAAAAAAKAAAAAEAATAETAAEES 
; Build List of blocking locks 


FRRRAAAAAARAAAE RAE ARA AEA AAAAAAAAAAAAARAAAAAAAAAARAAAAAAAARAEKARAAEA ARES 


Cad 


DISTRLKI - 0 
VoL LKI 


; Action routine to build the data transfer message 
; Inputs are: 
; Address of return buffer 

Size of return buffer 

Address of RSB 

Address of LKB 

; R10 Address of size word for return data 
3; RO-R4,R7 may be destroyed 


RCVBLKINGREQ: 
MOVAB RSBSL_WTQFL(R8),R8B ; Point R8 to wait queue Listhead 
JMP G*LKISSEARCH_BLOCKING : Search for all blocking locks, 
3 and return 


Sete eee te eee 
DzwwwD 
—OCOonre 


obdo00b0'Gr 75 


SREAAAAEAAEARAAAAA AAA AAAAAAAAAAAAAARAAAAAARARAAAAAAARARARAAAAEAAAAEAEEAAAEAEAEEE 


3 Build List of blocked locks 


SRERAAAAAKEA AAA T AAA AA AAAAAAAAAAARAAAAAAAAAAAAAARAAARAAAARAAAAAAAERAAAAEE 


WOO OOOO OO CDCOCDOD CD CDCDOCDCDODODODODODOD 1 


SOOO SQSQSVSSOSSG BW PAAAA AAPA AAA AAPA AIA AAOMMAAAAMAOOOAAMNQOAONOO CS 


; Action routine to build the block transfer message 


:; Inputs gree 

3 R Address of return buffer 

: R6 Size of return buffer 

: R8 Address o 

3 RY Address of LKB 

3 1 ddress of size word for return data 


: R10 A 
3; RO-R4,R7 may be destroyed 


RCVBLKBYREQ: 
MOVAB RSBSL_GROFL(RB),RB 3; Point R8 to erected queue Listhead 
JMP G*LKISSEARCH_BLOCKEDBY 3 woeres re all blocked locks, 
3 and return 


58 = 10 AS 5 
00000000'GF 1 


SSIS NSS SSNS DDD DPA AAD IT BB BPP PPP 


FAD $$ 9 ODNA NE UIDR 9 OOD NIA MNES 9 OO NIA UNE AI SO OO NIA UNE WIP OOD NAMES W000 


SREAAAAAAE AEA AAAAAAAAARAAAAAAAAAARAAAARAAAARAAAAAAAAAARAAAAAAAARAAEE 


: Build List of all locks 


RAAT AAAAAAAA AAA AAAAAAAAAAAAAARAAAAAAAAAARAAAAAAAAAAAAAAAAAARAAAAAAAAAE 


>>>rrrrrr>r OOWOWOOOOOOOOOWONO 


Action routine to build the block transfer message 
Inputs ° 


DODODOOOOOOOOOOOOOOOODOOOOOOOOOOODOOOOOOOO0000000000000 


Address of return buffer 
Size of return buffer 
Address of RSB 


cratch 

9 Address of LKB 

10 Address of size word for return data 
may be destroyed 


PWNAAAIAI AAAI AAA AAI HAI AAAI AIA AIA AI AIA IAAI AI AI AAAI AAI AIA AAAI AAI AIAIANIAIAI AAAI 


>>>>>>>r>r 


RO-R4, 


ats 


- 0D 
LKI 
5 > é heen | 
58 0A 5 MOVAS 
1 5 ) MOVL 
| a 
> % 3 a. - 
8 1 : CMPL 
4 1 BEQL 
511 f SUB 
1 BLS 
y ¢ 0 1 MOVL 
57 C8 A? 1 MOVAB 
1 1 101 BSBB 
57 38A 9 101 MOVAB 
e7 #1 101 BRE 
10135 60$ ASSUME 
1014 ASSUME 
58 C 1015 ADOL 
DE F 101 SOBGTR 
52 8ED0 1017 90$: POPL 
05 } 18 RSB 


F 


12 
OEKS = Receive a request tor Li S-SEP-1986 Oe:05:15 ESYSLOA.SRESDISTALK: .mani1 "28° (93) 


Rte ad ery of return butler 
He GROFL(R8) ,RB nt R ranted queue Listhead 
R A be size 57 uffer 
$.. CVTOFL Q St cnir et 
“WTQFL EQ RSBSL CVTOFL+ 
R ‘ an ove ize number of queues to search 
x sony * sthead address, aga 
Fey ®t Listhead again? 
r 
; Any room Left in buffer? 


: Br if 


-~DewmwwwwzD 


608 ° 
gheisc. LENGTH,R1 


Else, move down List 

; Point to story of LKB 

; Get the lock information 
; Point back to state queue 
ok for more 


(R7) ,R7 

cbKast SQFL(R7) ,R7 
,KesC. SQFL(R7) ,R7 
0$ 


Lo 
RSBSL_CVTQFL EQ RSBSL erie t 
ane “WTQFL EQ RSBSL_CVTQFL+ 
; Skip to next queue 
f $ : Loop if more queues to searc 
4 ; Restore address of return 1 
; Return to caller 


81 
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na 
‘a 


ETLKL Londable Code, * us "SISED=LSRE B2id8i4$ LRCYOR CRESS SPAT mamss 8% <2, 
_ Return Lock Information 


This routine will return the following lock information: 


tity LOcKIO the Lock's hock id 
the lock’s PID 


oc 
od 


LKl - 

tite sysTen - the resource 5 eyeven id (CSID) 
LKIS-STAT - the Locks current state 

LKTS. REMLKID = the lock's remote 

LKIS_REMSYSTEM = the lock’s remote system id (CSID) 


® = Putout buffer address 
4 = LKB address 
R10 = Address of size word for return data 


; ; Outputs: 

None 
; Side Effects: 
; is destroyed 

(R10) is increased by lock return size 
OCK_INFO: 
ADOW #LKISC_LENGTH, (R10) : Tally return size 
MOVL  LKBSL_CKID(R75,(R2)+ ; Return the LOCKID 


The EPID in the LKB is valid only for a master lock block. 


i 


Be Meili be ee hhh 5h) - 5-5 ~)~) ~) ~) ~) ~) ~) ~~) ~) ~) ~~) ~~) ~) ~~) ~~) ~~) ~~) -) -) 


50 14 A7 pe att Reeser) « RO 3 get the EPID 
E BBS uke 0m :; Br if p pester copy 
OA 2A A7 u STATO SCAT) «1 $ .e-EPID is valid 
f A? OD MOVL atti PID(R?), RO’ 3; Else, get PID and 
09 gf 1 JSB G*EXE BIDAR) RO : Convert to EPID 
; Return the 
i) MOVL RO, (R2)+ R h he 
59 $0 A? oD MOVL LKBS$L_RSB(R7) ,RO : Get RSB addre 
AO OD MOVL RSBSL CSID(ROS,(R2)+ =; Return the SYSTEM ID 
«6h BNEQ $ 3 if non-zero - okay 
90000000" st 9 spy og lee _CLUB,RO 3 Fist, 9 get pLUe address 
FC A2 60 A0 OD MOVL itty LOCAL _csipcno) .-4iR8) astela posi CSID 
ASSUME LKB 8 GRMODE EO LKBSB ROMODE+4 
Hs 3 a? 0 MOVW LKBSB RO MODE | (R7),(R2)* = Copy modes 
A MOVZBW B-STATE(R7), at es Copy current state, zero byte 
93 BGEQ 3 f state is okay 
FE A2 FF 8F MOVB #LKISC_WAITING,-2(R2) ; Else, map waiting states to same code 


82 58 Ar 


16 2A Ay 
FB A A7 
50. (0 "GF 


SPS DPA AAD FD INI OH NWWMF API MGS OOO OUP IM INIMP IMP IMIPIPIPIPIPINPIPIPIPIPPIPIPIPIPIPIPIIIPIPD 


NA ALAR AO OOD NIP NE WII S OO NIA NE WIIN OOO NIA NE WIP OOD NO UE  OWONOAU SE Ur 
a 
< 
— 


NINA AAA AAA AAA AAAAAAN ANA E BEBE ER BB AAA AAA AACA INI ION 


; The remote CSID and REMLKID are only valid in master 


; copy lock blocks. 
MOVL LKB L “Een tags cna (R2)+ 
BBS L 

Hat u_STATY 4 th?) 90$, 


MOVL LKB K1D( R? geet 
MOVL G°CLUSGL-¢ 


copy the REMLKID 
he remote CSID 


Br i pester & 


pp scSld. MLKID” are valid 
steure the LOCKID as REMLKID 
Get CLUS address 


wOe"0b5" ceQGREGIDSERE SETURL Longebte code ot, TECSERMIRRE G0:38:27 YAYLYME taere YOK-OD Ay, Page 25 
AN BR Map Klar 
435A 1 
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tverity remote Cock id  'ScSEP-198¢ Oc:08:45 ESYSLOA.SRESDISTRERT.man;1 “28° (98, vee 


-SBTTL VERIFYREMLKID = Verify remote lock id 


oats 


Patel 


me ak a a ed ed td a et a ot 8 a ss tt a 8 a ss ss a se tt st wo OD 


a a kt a at a 4 = = ot = = = = = = td sd —s — 3 ) ) 


<= 
nm 
zo 
— 
"we 
~<a 
z- 
m—, 
rc 
oa 


p++ 
3 FUNCTIONAL DESCRIPTION: 


This routine yer] fies a lock id sent by another system 
and converts it into a LKB address. 


CALLING SEQUENCE: 


BSBW VERIFYREMLKID 
IPL must be at IPLS_SYNCH 


INPUT PARAMETERS: 


RO Lock id on remote system 

a] Lock id on this system 
OUTPUT PARAMETERS: 

RO Completion code 

R6 Address of LKB 
COMPLETION CODES: 


SS$_NORMAL Lock id was valid can converted to LKB address 
SS$_IVLOCKID Invalid lock id 


SIDE EFFECTS: 
None o 
NOTE: 


This routine does two consistency gheshe. The first is that 

it verifies the lock id is valid via the sequence number check. 

If the lock id fails this check, then an error is returned to 

the caller as this is allowed in some cases and is fatal in others. 
However, if the lock id passes this check. then another check 

is made Fhat compares the remote lock id as sent by the remote 
eystee with the resote ock id stored here in the LKB. If this 
check fails then it is immediately fatal as the first check should 
catch all races that cause lock ids to not match across $ stems. 
Also note that this second check is not perfect in that should 
aise Gneck CSB addresses. This is considered unnecessary as the 


<= Se Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge See Se Ge 


PRP RR RRR RRR PRR PPR PPP PRR RRP PRP PPP PPP PPP PPP PPP PPP PRE 


VMU"DO "9 > > >> >P>r>>r>>>>>>>?>?>>>>?>?>?>?>?>>>?>>>Y>Y>>>>Y>>Y>>Y >> > >> Y>Y>rrrr ET 


FP WAAMA AA AA ADINININININININININ — + — 3 4 9 2OOODOO0000 000000000 0MmMcmcc0e 


SONA MALS OOO NAME WIN 9 OD NA NE WIN OS OD NIA NE WIP 9 OD NAME WO ODNOUS 


additional protection that check offers is small. 
ERIFYREMLKID: 
4 D PUSHL 3; Save R4 
56 ‘ MOVZWL R1,R6 : Put lockid index in R6 
00000000 ' GF | Hy ? 4 ? go LCKSEL RAKED : go tne lock id too big? 
54 00990 ‘GF =O 4 MOVL “LCKSGL_IDTBL.R4 $ #® May combine with next instr. 
6 002 b MOVL att sort: 3 Get address 
l BGEQ 40$ 3 Unallocated id 
30 Ab D CAPL R1,LKBSL_LKID(R6) ; Check sequence number 


J 12 
voe~000, VERIFY sFlerity remote Lock id 'S-SeP-1984 04:09:95 eYSeOA.enesoiseRcer.man:1 2% (ay vos 
Not valid 
Check fenege, teen id 


40$ : 
6 LKBSL_REMLKID(R6) ; 
3; Doesn't mat 


R 
50$ 
5, 7588_NORAAL RO uccess 


; Restore R4 


POPL R4 ; Restore R 


508: BUG_ CHECK INVLOCKID,FATAL; Invalid remote lockid 


PREP RRRRRPPEEEEE DF 


‘ 

4 

4 

4 

4 

? RSB 

48 40$: MOVZWL #SS$_IVLOCKID,RO ; Invalid bgek id 
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Symbol table SYSLOA.SRCIDISTRLKI.MAR;1 
SSBASE = IPL$_SYNCH = 00000008 
$$D1SP = LeKSét tore aeeneere §6X 9s 
SSGENSW = LCKSGL_MAXID aeeeeree =X 
$SHIG = LIMSGSB_STATUS = 
SSLIMIT = att: cote z 
$$LOW = 1 LIMSG$K_BLKING = 
SSMNSW = 1 ati: K_LOCKS 5 
SSMXS = LIMSGSK_RSPIVLKID = ; 
BLD_BLKBYMSGR R LIMSG Roa torurcees a 
BLD_BLKBYRSP R LIMSGSK_STDINFO = 1 
BLD_BLKINGMSGR DR LIMSGSK_STDINFO_LEN = 40 
BLD_BLKINGRSP BR Lines “LCKCOUNT = $f 
BLD_LOCKSMSGR DR LIMSGSL_MSTLKID = 
BLD_LOCKSRSP BR LIMSGSL_PRCLKID = Hs 
BLD_STDMSGR og R LIMSGSL_RSBREF CNT = 
BLD_STORSP 0 6 R LIMSGSL_STATE = 4 
BUGS_INVLOCKID eeenenee = §6X LIMSG$Q_VALBLK 5 
BUGS _LOCKMGRERR aereeere =X LIMSG$W°LISTSIZE = 
CORPSB_CNXR = 6 GA LKB$B_GRMODE = 
CORPSL_CNXBCNT = 4 LKBSB_RQMODE = 4 
CORPSL_CNXSVAPTE = 0000004 LKBSB_STATE = § 
CORPSL_LBOF F = 00 3 LKBSL_CSID = 5 
DRPSL_MSGBLD = 35 LKBSL_EPID = 14 
CORPSL_RBOF F = LKBSL_LKID = 30 
CORPSL_VAL1 = 00000 f LKBS$L_PID = of 
DRPSL_VAL = 000 Bp LKBSL_REMLKID = 00000054 
CORPSL_VAL = 00000034 LKBSL_RSB 2 030 
CORPSL_VAL4 = 00000038 LKBSL-SQFL 2 3 
CORPSL_VAL5S = 38 C LKBSV_MSTCPY = 00000004 
CDRPSL_XCT_LEN = ¢ LKBSW_STATUS = B88 O2A 
CORPSW- CNXBOF F = 4& LKISC_LENGTH = 00000018 
CLSMSGSB_FACILITY = 3 3 LKISC_WAITING = FEFFFFFF 
CLSMSG$B_ FUNC = LKISDISPATCH 8 000 4 RG 
CLSMSGSK_FAC_LKI = 4 8 5 LKISRCV_BLKBY B? RG 
CLSMSGSM_RESPMSG = 00000080 LKISRCV_BLKING AJ RG 
CLUSGL_CCUB aereeeee =X 02 LKISRCV_LOCKS 002C5 RG 0 
CLUBSL_LOCAL_CSID = 00000060 LKISRCV_STDINFO O0O00E6 RG 
CNXSALCOC_WARMCORP eeeeeenre =X LKISSEARCH_BLOCKEDBY eeeeeere =X 
CNXSBLOCK_WRITE eeeeenee = §6X LKISSEARCH BLOCKING aanereee §=6X 
CNXSBLOCK_XFER eenereee = §6X LKISSND_BLRBY 1A3 RG 
CNXSDEALL_WARMCDRP_CSB aeeneeee =X LKISSND_BLKING 19C RG 
CNXSINIT CORP eeeteree = 6X LKISSND_LOCKS 1AA RG 
CNXSPARTRER_F INISH eereneee =X LKISSNO-STDREQ 11 RG 
CNXSPARTNER_INIT_CSB eenenene = =§=6X LOCK_INFO 0 D2 R 8 
CNXSSEND_MSG_CSB eeneeeee =X MMGSGL_SPTBASE aeeennee 
CNXSSEND_MSG_RESP eeeneeee 8 6X pcest PID = 00000060 
CSBSL_CSTD = 4C PRS_IPL aexeeeee =X 02 
ana al at R 02 PSLSV_IPL = 10 
DYNSC_ BUF I0 = 1 RCVBLRBYREQ fe R 
EVTS_AST teeteeee xX RCVBLKINGREQ R 
EXE eeeeeeee = 6X RCVLOCKSREQ AO R 
EXESDEANONPAGED eeneeeee =X RCV_ERROR $ R 
EXESIPID TO_EPID eererere =X RCV_IVLKID DR 
KB$8_TYPE = A RCV"t BLORTN z 4 
KBSW" SIZE = RCV_T_DATA = 
IPL$_ASTDEL = RCV_W_SIZE = 
IPL$"SCS = RCV=W~STATUS 2 


DISTRLKI 
Symbol table 


RSBSL_CSI1D 
RSBSL-CVTQFL 
R FL 


RSB$Q_VALBLK 
it REF CNT 


Cc 
SeHSGL opyatte 
SCuSGL PCBVEC 


ND 
SSS_INSFMEM 
SS$-IVLOCKID 


VERIFYREMLKID 
WAKE _PROCESS 


PSECT name 


Initialization 
gonnane processing 


Puss ¢ table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


syorking » org tiatt was 1950 pages 
( pages) of virtua memory were used to buf ter he intermediate 
it pages of syebol te table genes 8 all cated to hold 14 
} 6 source Lines were read in 
3 pages of virtual memory were used to define 


£16 oytet 
re were 90 
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"SrSEP=19B6 00:05:95 ESYSLDR. Sat 


= 8980001 
= 
: ; 
= 
= 
= 0D 
getereee x 
eeereene x 
eeeerere x 
Reeeeeee x 
090806 
16 R 
70 R 
eeereene x 
eeeeeeee x 
Reeeeeee xX 
eeeekere uv 
68 10E R 0 
: 09 O15 
* 990 se R 0 
D0000A8 R 03 
pemon anaes eae woos + 
H Psect synopsis ! 
Allocation PSECT No. Attributes 
494 444 ‘ 9.3 NOPIC USR CON ABS LCL NOSHR NOEXE 
4 4 292 f 3 5°} NOPIC USR CON ABS LCL NOSHR EXE 
0004 ( 114 NOPIC USR CON REL LCL NOSHR' EXE 


Sse emma aoe momo moamoaad 


Page faults CPU Time Elapsed Time 
9 :00:00.03 :01.77 
18 :00: . 4 93:15 

4 :00:11.1 740.1 

20 200: Fr :00:06. 

1 :00:00. : : : 

ab “ :01:04. 


de. 
6 non-local gre £8 local symbols. 
object records in Pass 

macros. 


Pass produc "4, 


0 V04-00 
SDISTRLKI.MAR; 1 


wore — NOVEC BYTE 


NOVEC BYTE 
RD UAT NOVEC BYTE 


Page 3) 


D 
V 
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v04-00 p 
P=1984 C4187 “Pte 


r 
SYSLOA.SRCIJDISTRLKI .MAR; 


fm more cone seaman oe onwaan sce soe} 


! Macro Library statistics ! 


tenn momewr wero wrenr cna eemor oa} 


Macro Library name Macros defined 
-8255SDUA28: SVSLOA CO dICLUSTER-ALB; 1 1 
-S255SDUA28: ave-0Ry LIB.MLB; 17 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 7 
TOTALS (all Libraries) 25 


1596 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DISTRLKI/OBJ=OBJ$:DISTRLKI MSRC$:DISTRLKI/UPDATE=(ENHS$:DISTRLKI) +EXECML$/LIB+L1IB$:CLUSTER/LIB 
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